      BLOCK DATA CONBLD
C-----See also subroutine CNSTAN in job.f
      INCLUDE 'COM_CONST.INC'
      DATA PI     /3.1415926535898/
      DATA BOHR   /.52917706E0/
      DATA CLIGHT /2.99792458E+8/
      DATA ELCHA  /1.6021892E-19/
      DATA BOLTZK /1.380662E-23/
      DATA AVOG   /6.02204531E+23/
      DATA CALORY /0.2390E0/
      DATA NUL    /0/
      DATA NON    /1/
      END
